home *** CD-ROM | disk | FTP | other *** search
- if short name of this stack is "HyperExtras" then
- if "HyperExtras" is not in the stacksInUse then
- if there is a menu "Extras" then
- delete menu "Extras"
- end if
- end if
- end if
- goBack
- put the freesize of this stack into x
- if x>30000 then
- put the name of this stack into y
- answer "HyperExtras"&return&return&"There is"&&x&"k free. "&¬
- "Compact stack"&&y&&"now?" with "No" or "Compact"
- if it is "Compact" then
- if there is a menuItem "Compact stack" of menu "File" then
- doMenu "Compact Stack"
- else
- answer "Cannot find menuItem."
- end if
- end if
- end if